home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 February / LiquidLibrary 2005 February - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_cff.ps < prev    next >
Text File  |  2003-01-03  |  22KB  |  748 lines
  1. %    Copyright (C) 1997, 1998, 1999, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Loader for CFF (compressed) fonts, including OpenType CFFs.
  8. % The following are not implemented yet:
  9. %    Deleted entries in the Name Index
  10. %    Embedded PostScript
  11. %    Multiple Master fonts
  12. %    Chameleon fonts
  13. %    Synthetic fonts
  14.  
  15. % ---------------- Font loading machinery ---------------- %
  16.  
  17. % Augment the FONTPATH machinery so it recognizes OpenType CFF font sets.
  18.  
  19. /.scanfontheaders where {
  20.   pop /.scanfontheaders [
  21.    .scanfontheaders aload pop (OTTO*)
  22.   ] def
  23. } if
  24.  
  25. % Load a font file that might be an OpenType CFF font set.
  26.  
  27. % <file> .loadfontfile -
  28. /.loadnonottofontfile /.loadfontfile load def
  29. /.loadfontfile {
  30.   dup 4 string .peekstring pop (OTTO) eq {
  31.         % If this is a font at all, it's an OpenType CFF font set.
  32.     .loadottofontfile
  33.   } {
  34.         % Not a TrueType font.
  35.     .loadnonottofontfile
  36.   } ifelse
  37. } bind def
  38.  
  39. % <file> .loadottofontfile -
  40. /.loadottofontfile {
  41.   /FontSetInit /ProcSet findresource begin
  42.   2 dict begin
  43.   /f exch def /cff null def
  44.   card32 pop card16 6 { next pop } repeat dup {
  45.         % Stack: numtables tablesleft
  46.     dup 0 eq {
  47.       pop pop /.loadottofontfile cvx /invalidfont signalerror
  48.     } if
  49.     f 4 string readstring pop (CFF ) eq { sub exit } if
  50.     1 sub
  51.   } loop
  52.         % Stack: tablesread
  53.   card32 pop card32 card32
  54.         % Stack: tablesread start length
  55.   exch 3 -1 roll 1 add 16 mul 12 add sub
  56.   f exch subfilefilter flushfile    % skip to start
  57.   f exch subfilefilter end
  58.     % Use a random FontSet resource name.  ****** WRONG ******
  59.   realtime rand xor =string cvs exch false
  60.   ReadData
  61. } bind def
  62.  
  63. 30 dict begin
  64.  
  65. % ---------------- Standard strings (actually names) ---------------- %
  66.  
  67. /StandardStrings mark
  68.     % The initial StandardStrings that that denote characters are
  69.     % defined as a pseudo-Encoding.
  70. % 0
  71.   /CFFStandardStrings .findencoding aload pop
  72. % 379
  73.   (001.000)
  74. % 380
  75.   (001.001) (001.002) (001.003) /Black /Bold
  76.   /Book /Light /Medium /Regular /Roman
  77.   /Semibold
  78. .packtomark def
  79.  
  80. % ---------------- Standard encodings ---------------- %
  81.  
  82. /StandardEncodings [
  83.  
  84. % StandardEncoding
  85. mark
  86.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  87.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  88.   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  89.   17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
  90.   33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
  91.   49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
  92.   65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80
  93.   81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 0
  94.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  95.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  96.   0 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110
  97.   0 111 112 113 114 0 115 116 117 118 119 120 121 122 0 123
  98.   0 124 125 126 127 128 129 130 131 0 132 133 0 134 135 136
  99.   137 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  100.   0 138 0 139 0 0 0 0 140 141 142 143 0 0 0 0
  101.   0 144 0 0 0 145 0 0 146 147 148 149 0 0 0 0
  102. .packtomark
  103.  
  104. % ExpertEncoding
  105. mark
  106.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  107.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  108.   1 229 230 0 231 232 233 234 235 236 237 238 13 14 15 99
  109.   239 240 241 242 243 244 245 246 247 248 27 28 249 250 251 252
  110.   0 253 254 255 256 257 0 0 0 258 0 0 259 260 261 262
  111.   0 0 263 264 265 0 266 109 110 267 268 269 0 270 271 272
  112.   273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288
  113.   289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 0
  114.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  115.   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
  116.   0 304 305 306 0 0 307 308 309 310 311 0 312 0 0 313
  117.   0 0 314 315 0 0 316 317 318 0 0 0 158 155 163 319
  118.   320 321 322 323 324 325 0 0 326 150 164 169 327 328 329 330
  119.   331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346
  120.   347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362
  121.   363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378
  122. .packtomark
  123.  
  124. ] readonly def
  125.  
  126. % ---------------- Standard Charsets ---------------- %
  127.  
  128. % We include an explicit 0 at the beginning of each charset.
  129.  
  130. /StandardCharsets [
  131.  
  132. % ISOAdobe
  133. mark
  134.   0
  135.   1 1 228 { } for
  136. .packtomark
  137.  
  138. % Expert
  139. mark
  140.   0
  141.   1 229 230 231 232 233 234 235 236 237 238 13 14 15 99 239
  142.   240 241 242 243 244 245 246 247 248 27 28 249 250 251 252 253
  143.   254 255 256 257 258 259 260 261 262 263 264 265 266 109 110 267
  144.   268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283
  145.   284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299
  146.   300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315
  147.   316 317 318 158 155 163 319 320 321 322 323 324 325 326 150 164
  148.   169 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341
  149.   342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357
  150.   358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373
  151.   374 375 376 377 378
  152. .packtomark
  153.  
  154. % ExpertSubset
  155. mark
  156.   0
  157.   1 231 232 235 236 237 238 13 14 15 99 239 240 241 242 243
  158.   244 245 246 247 248 27 28 249 250 251 253 254 255 256 257 258
  159.   259 260 261 262 263 264 265 266 109 110 267 268 269 270 272 300
  160.   301 302 305 314 315 158 155 163 320 321 322 323 324 325 326 150
  161.   164 169 327 328 329 330 331 332 333 334 335 336 337 338 339 340
  162.   341 342 343 344 345 346
  163. .packtomark
  164.  
  165. ] readonly def
  166.  
  167. % ---------------- Font loading ---------------- %
  168.  
  169. % ------ Utilities ------ %
  170.  
  171. /advance {    % <n> advance -
  172.   f cff eq { pos add /pos exch store } { pop } ifelse
  173. } bind def
  174. /next {        % - next <byte>
  175.   f read {
  176.     1 advance
  177.     DEBUG { (  ) print dup = } if
  178.   } if
  179. } bind def
  180. /next2 {    % - next2 <byte1> <byte2>
  181.   f read {
  182.     f read {
  183.       2 advance
  184.       DEBUG { (  ) print 1 index =only (,) print dup = } if
  185.     } {
  186.       1 advance
  187.       DEBUG { (  ) print dup = } if
  188.     } ifelse
  189.   } if
  190. } bind def
  191. /nextstring {    % <length> nextstring <string>
  192.   dup 0 eq {
  193.     pop ()
  194.   } {
  195.     string f exch readstring pop dup length advance
  196.     DEBUG { (  ) print dup == } if
  197.   } ifelse
  198. } bind def
  199. /card8        % - card8 <card8>
  200.  /next load
  201. def
  202. /card16 {    % - card16 <card16>
  203.   next2 exch 8 bitshift add
  204. } bind def
  205. /card32 {    % - card32 <card32>
  206.   card16 16 bitshift card16 add
  207. } bind def
  208. /offsetprocs [
  209.   /card8 load
  210.   /card16 load
  211.   { card8 16 bitshift card16 add } bind
  212.   /card32 load
  213. ] readonly def
  214. /offsetproc {    % <offsize> offsetproc <proc>
  215.   1 sub //offsetprocs exch get
  216. } bind def
  217. /offset {    % <offsize> offset <offset>
  218.   offsetproc exec
  219. } bind def
  220. /sid        % - <sid> sid
  221.   /card16 load
  222. def
  223. /Index {    % - Index <array>
  224.   mark card16 dup 0 ne {
  225.     1 exch next offsetproc dup exec pop exch {
  226.       dup exec dup 4 -1 roll sub 3 1 roll exch
  227.     } repeat pop
  228.   } if pop .packtomark
  229.   [ exch { nextstring } forall ] readonly
  230. } bind def
  231. /tokens {    % - tokens <num1> ... <op#> (op# = 12 means EOF)
  232.   {
  233.     f read not { 12 exit } if
  234.     DEBUG { (..) print dup = } if
  235.     1 advance
  236.     dup 12 eq { pop next 32 add exit } if
  237.     dup 28 lt { exit } if
  238.     dup 32 lt {
  239.       28 sub {
  240.     { card16 32768 xor 32768 sub }
  241.     { 4 offset dup 16#7fffffff gt { -1 32 bitshift add } if }
  242.     { tokenreal }
  243.     { 31 exit }
  244.       } exch get exec
  245.     } {
  246.       dup 247 lt {
  247.     139 sub
  248.       } {
  249.     247 sub {
  250.       { next 108 add }
  251.       { next 364 add }
  252.       { next 620 add }
  253.       { next 876 add }
  254.       { next 108 add neg }
  255.       { next 364 add neg }
  256.       { next 620 add neg }
  257.       { next 876 add neg }
  258.       % 255 is deliberately omitted and will cause a rangecheck
  259.     } exch get exec
  260.       } ifelse
  261.     } ifelse
  262.   } loop
  263. } bind def
  264. /tokenbuf 100 string def
  265. /tokenput {    % <index> <char> tokenput <index+1>
  266.   tokenbuf 2 index 3 -1 roll put 1 add
  267. } bind def
  268. /tokenrealarray [
  269.  (0123456789.E) { } forall
  270.  [(E) 0 get /tokenput cvx (-) 0 get] cvx
  271.  null        % will give an error
  272.  (-) 0 get
  273.  { exit }
  274. ] readonly def
  275. /tokenreal {    % - tokenreal <float>
  276.   0 {
  277.     next exch 1 index -4 bitshift tokenrealarray exch get exec tokenput
  278.         % We must leave the byte on the stack temporarily so that
  279.         % the exit will see a consistent stack state.
  280.     1 index 15 and tokenrealarray exch get exec tokenput exch pop
  281.   } loop
  282.   tokenbuf 0 3 -1 roll getinterval cvr exch pop
  283. } bind def
  284. /Dict {        % <opsdict> Dict -
  285.   /opdict exch store {
  286.     mark tokens
  287.     DEBUG { (tokens: ) print ] dup === mark exch aload pop } if
  288.     opdict exch .knownget { exec } if cleartomark
  289.   } loop cleartomark
  290. } bind def
  291. /idstring {    % <sid> idstring <string|name>
  292.   dup 391 lt { //StandardStrings } { 391 sub strings } ifelse exch get
  293. } bind def
  294. /idname {    % <sid> idname <name>
  295.   idstring dup type /nametype ne { cvn } if
  296. } bind def
  297. /subfilefilter {    % <file> <length> subfilefilter <filter>
  298.     % SubFileDecode interprets a length of 0 as infinite.
  299.   dup 0 le { pop pop () 0 } if () /SubFileDecode filter
  300. } bind def
  301.  
  302. % ------ Top dictionary ------ %
  303.  
  304. /offput {    % <offset> <proc> offput -
  305.   DEBUG { (queued: ) print 1 index =only ( ) print dup === } if
  306.   currentdict exch aload length 1 add packedarray cvx
  307.   offsets 3 1 roll put
  308. } bind def
  309. /queueput {    % <font> <proc> queueput -
  310.   16#7fffffff offsets { pop .min } forall
  311.   pos sub nextstring
  312.   3 1 roll aload length 2 add packedarray cvx
  313.   [ queued aload pop counttomark 2 add -1 roll ]
  314.   /queued exch store
  315. } bind def
  316. /xxput {    % <value> <key> <dict> xxput -
  317.   3 1 roll exch put
  318. } bind def
  319. /putfi {    % <value> <key> putfi -
  320.   FontInfo xxput
  321. } bind def
  322. /xdef {        % <value> <key> xdef -
  323.   exch def
  324. } bind def
  325. /topdictops mark
  326.   12 { exit }
  327.   0 { idstring /version putfi }
  328.   1 { idstring /Notice putfi }
  329.   32 { idstring /Copyright putfi }
  330.   2 { idstring /FullName putfi }
  331.   3 { idstring /FamilyName putfi }
  332.   4 { idstring /Weight putfi }
  333.   33 { 0 ne /isFixedPitch putfi }
  334.   34 { /ItalicAngle putfi }
  335.   35 { /UnderlinePosition putfi }
  336.   36 { /UnderlineThickness putfi }
  337.   37 { /PaintType xdef }
  338.   38 { /FontType xdef }        % actually CharstringType
  339.   39 { counttomark array astore /FontMatrix xdef }
  340.   13 { /UniqueID xdef }
  341.   5 { counttomark array astore /FontBBox xdef }
  342.   40 { /StrokeWidth xdef }
  343.   14 { counttomark array astore /XUID xdef }
  344.   15 {
  345.     dup StandardCharsets length lt {
  346.       StandardCharsets exch get /charset xdef
  347.     } {
  348.       { queuecharset } offput
  349.     } ifelse
  350.   }
  351.   16 {
  352.     dup StandardEncodings length lt {
  353.       /Encoding xdef
  354.     } {
  355.       { queueEncoding } offput
  356.     } ifelse
  357.   }
  358.   17 { { readCharStrings } offput }
  359.   18 { exch /readPrivate cvx 2 packedarray offput }
  360.     % CIDFont operators
  361.   62 {        % ROS, must be first in a CIDFont
  362.     currentdict /FontType undef
  363.     currentdict /Encoding undef
  364.     currentdict /FontMatrix undef
  365.     /CIDFontVersion 0 def
  366.     /CIDFontRevision 0 def
  367.     /CIDFontType 0 def
  368.     /CIDCount 8720 def % Default value defined in CFF spec.
  369.     3 dict begin
  370.     /Supplement xdef
  371.     idstring /Ordering xdef
  372.     idstring /Registry xdef
  373.     /CIDSystemInfo currentdict end def
  374.   }
  375.   63 { /CIDFontVersion xdef }
  376.   64 { /CIDFontRevision xdef }
  377.   65 { /CIDFontType xdef }
  378.   66 { /CIDCount xdef }
  379.   67 { /UIDBase xdef }
  380.   68 { { readFDArray } offput }
  381.   69 { { readFDSelect } offput }
  382.     % This operator only appears in a FDArray element.
  383.   70 { idstring /FontName exch def }
  384. .dicttomark readonly def
  385.  
  386. % readcharset and readFDSelect may require the length of CharStringArray,
  387. % but these structures may occur in the file before the CharStrings.
  388. % If that happens, use a hack: assume that all the data up to the next
  389. % queued read should be read.
  390.  
  391. /charstringcount {    % <font> charstringcount <count> true
  392.             % <font> charstringcount <length> false
  393.   /CharStringArray .knownget {
  394.     length true
  395.   } {
  396.     % Hack: look for the next queued read.
  397.     16#7fffffff offsets { pop .min } forall
  398.     pos sub false
  399.   } ifelse
  400. } bind def
  401.  
  402. /readCharStrings {    % <font> readCharStrings -
  403.   /CharStringArray Index put
  404. } bind def
  405.  
  406. % ------ Charsets and encodings ------ %
  407.  
  408. % Note: formats 1 and 2 can overflow the operand stack.
  409. % We'll fix this if it ever becomes necessary.
  410. /charsetcount {
  411.   charstringcount { 1 sub } { 2 idiv } ifelse
  412. } bind def
  413. /charsetformats [
  414. { [ 0 3 -1 roll charsetcount { sid } repeat ]
  415. } bind
  416. { [ 0 3 -1 roll charsetcount {
  417.     dup 0 eq { pop exit } if
  418.     sid card8 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  419.   } loop ]
  420. } bind
  421. { [ 0 3 -1 roll charsetcount {
  422.     dup 0 eq { pop exit } if
  423.     sid card16 1 add 2 index .min { exch 1 sub 1 index 1 add } repeat pop
  424.   } loop ]
  425. } bind
  426. ] readonly def
  427. /queuecharset {        % <font> queuecharset -
  428.   { readcharset } queueput
  429. } bind def
  430. /readcharset {        % <data> <font> readcharset -
  431.   begin 0 () /SubFileDecode filter /f exch store
  432.   charsetformats next get currentdict exch exec /charset exch def end
  433. } bind def
  434.  
  435. /encodingformats [
  436. { 1 1 next { next exch Encoding 3 1 roll put } for
  437. } bind
  438. { 1 next {
  439.     next next 1 add {
  440.             % Stack: gid code
  441.       Encoding 1 index 3 index put
  442.       exch 1 add exch 1 add
  443.     } repeat pop
  444.   } repeat pop
  445. } bind
  446. ] readonly def
  447. /queueEncoding {    % <font> queueEncoding -
  448.   { readEncoding } queueput
  449. } bind def
  450. /readEncoding {        % <data> <font> readEncoding -
  451.   begin 0 () /SubFileDecode filter /f exch store
  452.   /Encoding [ 256 { /.notdef } repeat ] def
  453.   next encodingformats 1 index 127 and get exec
  454.   128 ge {
  455.             % Read supplementary encodings.
  456.     next {
  457.       Encoding next sid idname put
  458.     } repeat
  459.   } if end
  460. } bind def
  461.  
  462. % ------ FDArray and FDSelect ------ %
  463.  
  464. /readFDArray {        % <font> readFDArray -
  465.   Index exch
  466.   2 dict begin /f null def begin
  467.   [ exch {
  468.     dup length subfilefilter /f exch store
  469.     10 dict begin
  470.     /FontType 2 def
  471.     /PaintType 0 def
  472.     /FontMatrix [0.001 0 0 0.001 0 0] def
  473.     /Private 20 dict def
  474.     //topdictops Dict currentdict end
  475.   } forall ] /FDArray xdef end end
  476. } bind def
  477.  
  478. % Note: this implementation can overflow the operand stack.
  479. % We'll fix this if it ever becomes necessary.
  480. /fdselectformats [
  481. { [ exch charstringcount pop { card8 } repeat ] } bind
  482. { /FDSelect cvx /invalidfont signalerror } bind
  483. dup
  484. { pop [ card16 card16 exch {
  485.         % Stack: previndex
  486.     card8 card16 dup 4 1 roll 3 -1 roll sub 1 sub {
  487.       exch 1 index
  488.     } repeat exch
  489.   } repeat pop ]
  490. } bind
  491. ] readonly def
  492.  
  493. /readFDSelect {        % <font> readFDSelect -
  494.   begin fdselectformats next get currentdict exch exec /FDSelect exch def end
  495. } bind def
  496.  
  497.  
  498. % ------ Private dictionary ------ %
  499.  
  500. /deltarray {        % -mark- <num1> ... deltarray <num1'> ...
  501.   0 counttomark 1 sub { counttomark -1 roll add dup } repeat pop
  502.   counttomark array astore
  503. } bind def
  504.  
  505. /privatedictops mark
  506.   12 { exit }
  507.   6 { deltarray /BlueValues xdef }
  508.   7 { deltarray /OtherBlues xdef }
  509.   8 { deltarray /FamilyBlues xdef }
  510.   9 { deltarray /FamilyOtherBlues xdef }
  511.   41 { /BlueScale xdef }
  512.   42 { /BlueShift xdef }
  513.   43 { /BlueFuzz xdef }
  514.   10 { 1 array astore /StdHW xdef }
  515.   11 { 1 array astore /StdVW xdef }
  516.   44 { deltarray /StemSnapH xdef }
  517.   45 { deltarray /StemSnapV xdef }
  518.   46 { 0 ne /ForceBold xdef }
  519.   47 { /ForceBoldThreshold xdef }
  520.   48 { /lenIV xdef }
  521.   49 { /LanguageGroup xdef }
  522.   50 { /ExpansionFactor xdef }
  523.   51 { /initialRandomSeed xdef }
  524.   19 { PrivateStart add { readSubrs } offput }
  525.   20 { /defaultWidthX xdef }
  526.   21 { /nominalWidthX xdef }
  527.     % Multiple Master fonts only
  528.   59 { /NDV xdef }
  529.   60 { /CDV xdef }
  530.   61 { /lenBuildCharArray xdef }
  531. .dicttomark readonly def
  532.  
  533. /readPrivate {        % <font> <size> readPrivate -
  534.   2 dict begin
  535.   /PrivateStart pos def
  536.   f 3 1 roll exch 1 index f exch subfilefilter /f exch store
  537.   dup /FontType get exch
  538.   /Private get begin
  539.         % Default lenIV to -1 even for Type 1 CharStrings.
  540.   2 ne { /lenIV -1 def } if
  541.   //privatedictops Dict end
  542.   exch /f exch store advance
  543.   end
  544. } bind def
  545.  
  546. /readSubrs {        % <font> readSubrs -
  547.   /Subrs Index put
  548. } bind def
  549.  
  550. % ------ Main program ------ %
  551.  
  552. % Clean up after finishing a font.
  553. /cleanupFont {        % (currentdict) cleanupFont -
  554.         % Remove unwanted entries.
  555.   currentdict /charset undef
  556.   currentdict /CharStringArray undef
  557. } bind def
  558.  
  559. % Update the Encoding and CharStrings for a real font.
  560. /finishFont {        % (currentdict) finishFont -
  561.         % Construct the real Encoding.
  562.         % The value of Encoding is either a number, for predefined
  563.         % encodings, or an array of mixed GIDs and names.
  564.   /Encoding mark Encoding
  565.   DEBUG { (Encoding: ) print dup === flush } if
  566.   dup type /integertype eq {
  567.     StandardEncodings exch get { idname } forall
  568.   } {
  569.     {
  570.       dup type /integertype eq { charset exch get idname } if
  571.     } forall
  572.   } ifelse .packtomark def
  573.         % Construct the CharStrings.
  574.         % Note that they may only correspond to an initial
  575.         % subset of the charset.
  576.   /CharStrings charset length CharStringArray length .min dict def
  577.   DEBUG {
  578.     charset length =only ( charset ) print
  579.     CharStringArray length =only ( CharStringArray) =
  580.     charset == flush
  581.   } if
  582.   0 1 CharStrings maxlength 1 sub {
  583.     dup CharStringArray exch get
  584.     exch charset exch get idstring CharStrings xxput
  585.   } for
  586.   cleanupFont
  587. } bind def
  588.  
  589. % Replace CharStrings with GlyphDirectory for a CIDFont;
  590. % Move GlobalSubrs to descendent fonts.
  591. /finishCIDFont {    % (currentdict) finishCIDFont -
  592.         % Construct the GlyphDirectory, similar to CharStrings.
  593.   /FDBytes FDArray length 1 gt { 1 } { 0 } ifelse def
  594.   /GlyphDirectory charset length CharStringArray length .min dict def
  595.   DEBUG {
  596.     charset length =only ( charset ) print
  597.     CharStringArray length =only ( CharStringArray) =
  598.     charset == flush
  599.   } if
  600.   0 1 GlyphDirectory maxlength 1 sub {
  601.     dup CharStringArray exch get
  602.         % If there is more than one FDArray entry, add the font
  603.         % index to the beginning of each charstring.
  604.     FDBytes 1 eq {
  605.       FDSelect 2 index get
  606.       1 string dup 0 4 -1 roll put exch concatstrings
  607.     } if
  608.     exch charset exch get GlyphDirectory xxput
  609.   } for
  610.  
  611.   Private /GlobalSubrs .knownget {
  612.     FDArray {
  613.     /Private get /GlobalSubrs 2 index put
  614.     } forall
  615.     pop
  616.     Private /GlobalSubrs undef
  617.   } if
  618.  
  619.         % Clean up.
  620.   currentdict /FDSelect undef
  621.   cleanupFont
  622. } bind def
  623. % We need to pass the file as a parameter for the sake of the PDF
  624. % interpreter. Also for the sake of PDF, a flag forces the font
  625. % to be defined as <resname> instead of the name embedded in the data.
  626. % This is needed for subsetted fonts; it is valid if the CFF
  627. % contains only a single font.
  628. /StartData {          % <resname> <nbytes> StartData -
  629.   currentfile exch subfilefilter false ReadData
  630. } bind def
  631. /ReadData {           % <resname> <file> <forceresname> ReadData -
  632.  
  633.     % Initialize.
  634.  
  635.   30 dict begin
  636.   /forceresname exch def
  637.   /cff exch def
  638.   /pos 0 def
  639.   /resname exch cvlit def
  640.   /DEBUG DEBUG def    % bring the binding closer
  641.  
  642.     % Read the header.
  643.  
  644.   /f cff def
  645.   /vmajor next def
  646.   /vminor next def
  647.   /hdrsize next def
  648.   /aoffsize next def
  649.  
  650.     % Read the Indexes.
  651.  
  652.   /names Index def
  653.   /topdicts Index def
  654.   /strings Index def
  655.   /gsubrs Index def
  656.  
  657.     % Read the top Dicts.
  658.  
  659.   /offsets 50 dict def
  660.   /queued [] def
  661.   /opdict null def        % reserve a slot
  662.   /fonts [ topdicts {
  663.     0 () /SubFileDecode filter /f exch def
  664.     40 dict begin
  665.         % Preload defaults that differ from PostScript defaults,
  666.         % or that are required.
  667.       /FontType 2 def
  668.       /PaintType 0 def
  669.       /FontMatrix [0.001 0 0 0.001 0 0] def
  670.       /charset StandardCharsets 0 get def
  671.       /Encoding 0 def
  672.       /FontInfo 10 dict
  673.     dup /UnderlinePosition -100 put
  674.     dup /UnderlineThickness 50 put
  675.       def
  676.       /Private 20 dict
  677.     gsubrs length 0 ne { dup /GlobalSubrs gsubrs put } if
  678.       def
  679.       //topdictops Dict
  680.     currentdict end
  681.   } forall ] def
  682.  
  683.     % Read other tables with queued offsets.
  684.  
  685.   DEBUG { (offsets: ) print [ offsets { pop } forall ] == } if
  686.   { /f cff def
  687.     DEBUG { (pos=) print pos = } if
  688.     offsets pos 2 copy .knownget not { pop pop exit } if
  689.     3 1 roll undef
  690.     DEBUG { (exec queued: ) print dup == } if
  691.     exec
  692.   } loop
  693.   offsets length 0 ne {
  694.     (Error: missing tables at ) print [ offsets { pop } forall ] ==
  695.     (Current position is ) print pos ==
  696.     flush stop
  697.   } if
  698.  
  699.     % Process out-of-order tables.
  700.  
  701.   DEBUG { queued length =only ( queued) = flush } if
  702.   queued { exec } forall
  703.  
  704.     % Update Encoding and CharStrings.
  705.  
  706.   fonts {
  707.     begin
  708.     currentdict /CIDFontType known { finishCIDFont } { finishFont } ifelse
  709.     end
  710.   } forall
  711.  
  712.     % Wrap up.
  713.  
  714.   resname mark 0 1 fonts length 1 sub {
  715.     DEBUG { dup =only ( ) print flush } if
  716.     dup names exch get
  717.     forceresname { pop resname } if
  718.     DEBUG { dup == flush } if
  719.     exch fonts exch get
  720.     dup /CIDFontType known {
  721.         % This is a CIDFont.
  722.       dup /CIDFontName 3 index put
  723.       1 index exch /CIDFont defineresource
  724.     } {
  725.         % This is a font.
  726.       dup /FontName 3 index put
  727.       1 index exch definefont
  728.     } ifelse
  729.   } for .dicttomark
  730.   end        % temporary dict
  731.   end        % FontSetInit ProcSet
  732.   /FontSet defineresource pop
  733.  
  734. } bind def
  735.  
  736. % ---------------- Resource category definition ---------------- %
  737.  
  738. currentdict end readonly
  739.  
  740. languagelevel exch 2 .setlanguagelevel
  741.  
  742. /FontSet /Generic /Category findresource dup length dict .copydict
  743. /Category defineresource pop
  744.  
  745. /FontSetInit exch /ProcSet defineresource pop
  746.  
  747. .setlanguagelevel
  748.